home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a09.bas < prev    next >
BASIC Source File  |  1993-11-30  |  794b  |  26 lines
  1. 1000 'A09.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0
  3. 1020 CLS
  4. 1030 PI=3.14159!:C=6
  5. 1040     PKOX=27:PKOY=20
  6. 1050 A$="☆☆☆ リサージュカーブを描いています｡ ☆☆☆"
  7. 1060 A=LEN(A$):D=(80-A)\2:LOCATE 0,24:PRINT SPACE$(D)+A$
  8. 1070 T1=TIME:S=1 
  9. 1080     GOSUB *MAIN
  10. 1090 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げた時間--";T;"秒  描いた曲線の数--";S;"本" 
  11. 1100     WAIT 100:C=0:GOSUB *MAIN
  12. 1110 T3=TIME:T=T3-T2:LOCATE 5,1:PRINT "消した時間--";T;"秒                                 " 
  13. 1120 WAIT 100:GOTO 1240
  14. 1130 '
  15. 1140 *MAIN
  16. 1150 X=320+250*SIN(0)
  17. 1160 Y=240-150*SIN(0)
  18. 1170 POINT(X,Y)
  19. 1180 FOR T=O TO .95!*PI+.2! STEP .005!
  20. 1190   X=320+250*SIN(PKOX*T)
  21. 1200   Y=240-150*SIN(PKOY*T)
  22. 1210   LINE -(X,Y),PSET,C
  23. 1220 NEXT
  24. 1230 RETURN
  25. 1240 '
  26.